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:+4 
> FACILITY: 

VAX/VPS TERMINAL DRIVER 
ABSTRACT: 


THIS MODULE CONTAINS ROUTINES PERTAINING TO STARTING AND COMPLETING 
1/0 REQUESTS. 


: AUTHOR: 
: R.HEINEN 10-OCT-1977 


; Revision history: 


v04-001 m1RO001 Michael I. Rosenblum 05-Aug-1984 
Fix problem with disconnect where disconnection could 
happen when a read completion was waiting on the queue, 
This required a fork queue length count. 


v03-030 M1R0450 mICHARL 1. ROSENBLUM 27 1IN-1984 
Add code to the free linefeed logic to account for PC_wOCRLF. 
Fix problem that causes the first lLinefeed typed on a 
read with no prompt to not be echoed. 


v03-029 RKS0029 RICK SPITZ - 10-APR-1984 
Enhance virtual terminal connect action routine to 
perform an implicit set mode operation. 
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V03-028 M1R0376 


wrap. 
system. 


v03-027 RKS0027 


v03-026 piacsre 
Fix bugs 
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Michael I. Rosenblum 
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20-Mar-1984 


Put code in tc fix problems with Lines and prompts causing 
Fix bug that would cause FAS programs to crash the 


05-MAR-1984 


Enhance write post completion to handle the case 
of a write completion with no current PUCB. 


09-F eb-1984 


60 ; 
61 ; 
og : 
4 64 : make cure setting nomodem on a modem terminal shuts down 
000 ? : the Line. 
900 67 ; v03-025 m1R0300 Michael I. Rosenblum 30-Jan-1984 
444 $8 ; Add input failback 
909 0; v03-024 MIR0085 Michael I. Rosenblum 26-Aug-1983 
444 4 ; Remove references to DCL_OUTBND and DCL_CTRLC. 
0000 «73: v03-023 M1R0082 Michael I. Rosenblum 19-Aug-1983 
0000 74; Make autoxoff mode work with passall and ttsync. 
444 2 : Fix pasthru to remain enabled after a read completes. 
0000 «77: v03-022 MIRO080 Michael I. Rosenblum 28-Jul-1983 
0000 78 ; Move newline code into write done rather than TTYFDT 
si 43 : Reposition routines in the module. 
0000 1: v03-021 M1R0070 Michael I. Rosenblum 13-jul-1983 
0000 82 ; Fix bug that would cause TTYSDISCONNECT to be called twice. 
8000 Hi 3 if a SETMODE with the HANGUP modifier was issued. 
0000 85 ; v03-020 m1RO0051 Michael I. Rosenblum 23-Jun-1983 
8058 Hy 3 Fix missing Litterals in connect and disconnect code. 
000 3 Check write active bit in getnextwrite to insure that 
444 Hs : The write queue is not reordered. 
$009 90 ; v03-019 RKS0019 CK SPITZ 7=JUN-1983 
0000 91; ADD CONNECT/DISCONNECT ION ROUTINES. 
000 3 3 ENHANCE WRITE DONE F OCESS TO ALWAYS USE REQCOM 
bof 93; If THE WRITE IRP IS POIN TO BY UCBSL_JRP 
0 94 ; MAKE SURE LUCB IS NOT HED AT THE ACTERNATE WRITE ENTRY. 
000 + : REMOVE CTRLY HANGUP C AS IT IS STILL DONE IN FDT. 
$08 39 ; v03-018 RKS0018 CK $ 16-MAY-1983 
it 38 3 MOVE SEGMENTS OF CHARA ISTICS FOT CODE TO TTYSTRSTP 
99 ; TO ALLOW CLEAN DISCONN OF DISCONNECTED TERMINALS. 
0 ! : RESTORE LUCB FROM LUCB READ/WRITE DONE. 
1 2 : v03-017 M1ROO0SO Michael I. Rosenblum 11-May-1983 
1 : Remove code that spec tal cased broadcasts. Allow the 
104 ; data returned by timeout errors to be stored in the recall 
' $; buffer. Make write post complete broadcasts. 
1 $ : V03-016 M1R0030 ™ che - Rosenblum 70-Mar-1985 
108 ; Integrate Read verification with the standard driver 
109 ; Add support for alternate frame sizes. 


v4 


n 3 
- Terminal driver start/stop 1/0 routine 9-4-1387 Ne qo: 33 AX/VMS Macro v04-00 Page 3 TT) 


=) 


SOSoOoooooooooooo 


SooQooooooooooococoo 
SOOSoOOooCoooooooooooSo 


ee ee nn ee ee ee ee ee ee ee ee ee ee ee ee ee ee —> — 2 a 4 1 a ss 
PRA QA DAA D Vrs & BBB LEE SE PWIA NIIP) 2 2 es 
AAPA (OOO NAM EWN 2 OOO NAU EWN 0 OONO UE WN (OOO NOAU EWE -s OWONOUS WHO 


=SEP-1984 TTDRVR.BUGSRCITTYSTRSTP.MAR; 1 (1) vOé 
v03-015 tbe: 9 Michael I. Rosenblum 22-Mar-1983 
field to the iosb when iteml st reads are used. 

V03-014 RKSO014 RICK SPIT 14-MAR-1983 

ADD SUPPORT FOR LOGICAL UCB. NOTE THAT THE DRIVER 

SWITCHES TO PHYSICAL UCB CONTEXT AT STARTIO ENTRY. IT 

seeiene’ LOGICAL UCB CONTEXT PRIOR TO RETURNING TO THE 
v03-013 MIR8026 Michael I. Rosenblum 14-Mar-1983 

Fix bug in partail escape sequence processing. 
VO3-012 MIRS026 Michael I. Rosenblum 10-Mar-1983 


Fix security whole with command recall and the password 
by not allowing noecho strings to be stored in the recall 


uffer. 
v03-011 miRI026 Michael I. Rosenblum 09-Mar-1983 
Fix code in getnxtwrite to look at the read packet 
rather than UCBSW_BCNT to find the number of characters 
that have been read so far. 
v03-010 ninco’ Michael I. Rosenblum 01-Mar-1983 
Add code to save the results of the last read. 
v03-009 MIROO24 Michael I. Rosenblum 28-Jan-1983 
Update code to use the new read packet format 
v03-008 minodes Michael I. Rosenblum 24-Jan-1983 


Read buffer was weed after it was deallocated if a 
Cancel was issued while EDITREAD state was in affect. 
Changed READONE code to clear the edit read states 
when a read is completed. 


V03-007 MIROO16 Michael I. Rosenblum 4-Jan-1983 
Change TTYSSTARTOUTPUT to use the UCB OUTYPE field” to determine 
the necessary action when TVSGETNEXTCHAR is called. This change 
should illiminate the check ing the vet ttale condition code bits 
that previously had the function of 0 —. For compatibility 
purposes only we are setting the pol wo. "biaditten codes. 


v03-006 mR0015 Michael I. Rosenblum oie iene 


also chang c PORT "DISCONNECT yiecey to go 8 


CLASS ris rt Change all port calls to teil the Class 
driver oenst yh 

v03-005 m1RO0013 Michael I. Rosenblum 16-Dec-1982 
Fix up refferences to new ucb structure 

v03-004 m1IROO11 Michael I. Rosenbium 18-Nov-1982 
Remove code that lool inented HOLDSCREEN, 

v03-003 MIROO10 Michael I Rosenblum 09-Nov-1982 


Move the address of the terminator mask, and the length 
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of ihe promot string from the IRP into the terminal read 
buffer. 


v03-002 ROW0077 Balen 0. Weber ge ge. 
Change TTYSWRITEDONE to insure that eventhough UcB$w_TT_CURSOR 
can now be bigger than UCBSW_DEVBUFSIZ, i.e. eventhough our 
internal cursor position marker can virtually be beyond the 
ri atoneng edge of the screen, the cursor-position value 
returned in J0SB will never exceed the width of the screen. 


v¥93-001 Ji_v0202 Jake — 23-MAR-1982 
Change MODHANGUP from NOMOD to PRIV_TO_MOD in Set 
Mode/Char logic. 
Correct alternate class name lookup. 


VO2-045 RKSO0045 RICK SPITZ 22-F EB-1982 
Repair diagnostic function code logic. 
V02-044 RKS0044 RICK SPITZ 16-F EB-1982 


Enhance broadcast logic to allow delay prior to 

verging output. Move setting of controls pending — 

to STOP2 timeout. This way user “s can be distinquished 
from terminal xoff. 

Save RS prior to forking to create typeahead on read. 


V02-043 RKS0043 RICK SPITZ 11-FEB-1982 
Zero fork byte in TWP to allow DMA of broadcast. 
Prevent XON characteristic from being permantly set. 


V02-042 RKSO0042 Rick Spits , 8-F EB-1982 
Repair Alternate typeahead logic to allow setting 
Permanent from users terminal. 


OO NOME WIN $9 ONO WO O@n 


Allocate typeahead buffer when starting read, if not already 
done. This is needed for Lines which are used for communications 
on DMF-32 async Lines. 


v02-041 ROW0066 Ralph 0. Weber 31-JAN-1982 
Enhance alternate § ass driver setup to relocate address in 
alternate class driver vector table. Correct use of 
unrelocateable .ASCID directive. 
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3 ; V02-040 RKS0040 RICK SPITZ 24-JAN-1982 
: USE INPUT VALUE FOR READ FIELD OFFSET. 
9 : ADD LOGIC TO BIND TO ALTERNATE DRIVER. 
§ : v02-039 RKS0039 RICK SPITZ 15-DEC-1981 
: FIX MAINTENANCE DISPATCH LOGIC. 
4 ; DISALLOW SETTING ALT TYPEAHEAD IF ONE ALREAY EXISTS. 
> 3 EMOVE LOGIO REQUIREMENT FOR PARITY ENABLE. 
§ ; FIX WRISTARTIO RETURN ADDRESSING. 
: ALLOW hi are READ TO NOT BLOCK WRITES. 
8 : ADD WRITE POST ROUTINE TO REPLACE INSPOST LOGIC, THIS 
: CORRECTS RACE Sarg LEE IN HALF DUPLEX WRITE COMPLETIONS. 
? : ADD SUPPORT FOR ALTERNATE CLASS DRIVER. 
§ 3 v02-038 Jiv0126 Jake VanNoy _1=Dec-1981 
: Add local echo logic and set speed privilege checking. 


- Terminal driver start/stop 1/0 fest ns gx g0nn 130? } 17: Tie? 33 ayes Macro y04-00 Page 


fe] 
-SEP=19 TTDRVR.BUGSRCJTTYSTRSTP. MAR: 
4; 
S$; v02-037 JLVv0102 eg t 27-0¢ t-1981 
§ : Changed TTYDEFS “y TYYDEF 
§ ; v02-036 JLv0070 Noy, 28-Aug- -1981 
4 : Added UCBSL_TT _pevoPt oo ing and no refresh on broadcast. 
9 1: v02-035 RKSO35 RICK SPITZ 26-AUG-1981 
3 ADD MAINT ENABLE BIT 
4: V02=034 RKS034 RICK SPITZ 20-AUG-1981 
5 : ADD SUPPORT FOR ESCAPE MODIFIER ON READ. 
0 $ : v02-033 RKS033 RICK SPITZ 12-AUG-1981 
9 § : RESET DMA ABORT STATE IN WRITE DONE LOGIC. 
9 33 : RESET CONTROLS STATE FOR MAINTENANCE FUNCT’ONS. 
99 41: v02=032 RKS032 RICK SPITZ 27-JULY-1981 
0 4¢ ; SEVERAL ENHANCEMENTS HAVE BEEN ADDED TO SUPPORT REVISIONS 
9000 43 : TO THE UCB STRUCTURE INCLUDING SPLIT SPEED, AND QUADWORD STATE 
900 44 : AND DEVDEPEND FIELDS. 
0 45 ; SUPPORT FOR DIAGNOS)1C FUNCTIONS AND ENHANCED mODER PROCESSING 
00 4g ; HAS BEEN ADDED. SEVERAL CHANGES TO SUPPORT THE CLASS/PORT 
00 47 : STRUCTURE AS WELL AS ENHANCEMENTS TO ALLOW TERMI WA 
00 248: INITIATED CONTROL S$ AND Q DURING BROADCAST HAVE ALSO BEEN 
0000 249: ADDED. 
0000 250: 
0000 251: v02-031 RKSO31 RICK SPITZ 26-F EB-1981 
one 28 : REMOVE V2.0 AUDIT TRAILS 
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; EXTERNAL SYMBOLS 
SAR 


NOP. DOO— CIM TFNOF. DOO MTN 
MWMNNINN ODOOODOOOOORAK ALLA 


+ driver start/stop 1/0 


Declarations 
00 
0 
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eC 
os 
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1/0 OPERATION ON TER 5-SEP-1984 04: TTDRVR.BUGSRCIJTTYSTRSTP.MAR; 
on -SBTTL TTYSSTARTIO = START 1/0 OPERATION ON TERMINAL 
; TTYSSTARTIO = START 1/0 OPERATION ON TERMINAL 
: FUNCTIONAL DESCRIPTION: 
: THIS ROUTINE IS ENTERED WHEN THE UNIT IS IDLE AND THERE IS A PACKET TO PROCESS. 
; INPUTS: 
1/0 PACKET FORMATTED AS DESCRIBED IN TTYFDT. 


Rg = 1/0 PACKET ADDRESS 
R> = LOGICAL UCB ADDRESS 


TTVSSTART to’ 


SSsssscscscceses 
2 Soo 
ettaenatiovemicchaticet | us 


OUTPUTS: 
it 


0 
3 98 i NONE 
09 00 TYSSTARTIO: : : START TERMINAL 1/0 
0¢ ; MOVE TO PHYSICAL UCB CONTEXT. THIS INVOLVES DUPLICATING 
63 ; MANIPULATIONS TO THE LOGICAL UCB DONE BY [OCSINITIATE 
50  00a0 ¢ DO 5 05 MOVL : BSL_TL ~PHYUC (R5),RO ; GET PHYSICAL UCB ADDRESS 
58 AO 0 06 MOVL yCBSt 1 sere RP ADDRESS TO PHYS UCB 
78 AO 2¢ A D 0009 30 mova Tee La SVRRTECRS UCBSL_ SVAPTE(R 
0048 af 00g 08 Bicw buce CANCEL !UCBSM_TIMOUT, Ueesy. STS(RO) 
55 50 00 31 09 MOVL _RO,RS ; SWITCH TO PHYSICAL UCB 
FFE6' 30 0017 311 BSBW Ss TTYSLOCK ETUP IPL AND REGISTERS 
me FFCO ar AB are 12 BICw3 #CclO$h _FCODE>, IRPSW_ FURC TRS) R4; GET INTERNAL FUNCTION CODE 
13 CASE  R4,TYPE=B D0, READ ,DO_WRITE,DO_SETM,DO_SETC,DO_HANGUP, - 
0081 34 DO_MAINT ,DO_HANGUP,60_CONNECT,BO_DISCORNECT> — 
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TTYSTRSTP = Terminal driver start/stop 1/0 routine 8-JAN-1985 17:27: AX/VMS Macro Vv04-00 P 8 
04-001 START_IO ACTION ROUTINES gry 1382 er te +} YTTORVR.BUGSRC ST TYSTRSTP.MARG To (4) 
f ~sbttl START_IO0 ACTION ROUTINES 
3 CONNECT THIS PUCB TO A DETACHED LUCB 
4 DO_CONNECT: 
of 1 ; BBC #10$V_TT DISCON ~ 
98 20 A 9 LRP Sy FUNC(RS) , 108 SKIP UNLESS DISCONNECT SPECIFIED 
000 00 Ha CA is 4 BICL #TT2$A_DISCONNECT,UCBSL_DEVDEPND2(R5); FORCE HANGUP TO COMMAND PROCE 
4 5 108: 
51 0084 cs 09 44 $ MOVL YCBSL_POT(RS) RI ; GET TARGET LUCB ADDRESS 
ey 9 BEQL ; NONE, MUST BE JUST DELETED 
48 : SET_STATE RECONNECT 3 SET RECONNECT STATE TO TARGET LuCB 
OA 4F 1 PUSHR #*M<R1,R3> ; SAVE IRP ADDRESS AND LUCB 
54 08 p 1 ¢ MOVL #TTYSV_FD_DISCONNECT,R4 3 SCHEDULE DISCONNECT COMMAND PUCB 
FFAS" 4 BSBW TTYSCRE_FORK 
OA BA 4 ; POPR #*M<R1,R3> ; SAVE IRP ADDRESS AND LUCB 
99 § : NOW CONVERT IRP INTO SET MODE AND FILL IN VALUES FROM 
4 3 THE TARGET LUCB 
40 A 44 a1 7D B38 § mova UCBSL_DEVDEPEND(R1), IRPS$Q_TT STATE (RS) 
9A 41 Al 90 005 40 MOVB  UCBSB"DEVTYPE(R1) ,JRPSL_MEDIA+1(R3) ; TERMINAL TYPE 
AAS 4241 B80 006 41 MOVW  UCBSW"DEVBUFSIZ(R1), IRPSL_MEDIA+2(R3)  : WIDTH 
4C As D4 006 4g CLRL IRPSW- RMPT(R3) 
009C C D4 poe ry CLRL IRP$L-VACS(R3) 
‘ 
00200000 af CA $F 45 BICL #TTSM_MODEM, IRP$Q_TT_STATE(R3) ; TRACK MODEM TO BE SAME AS 
08 44 a5 1 E1 007 3 BBC #TTSV_MODEM, UCBSL_DEVDEPEND(R5) ,208 : 
00200000 4 C8 p07 4 BISL #TTSM_MODEM, IRP$Q-TT_STATE(R3) ; 
4 48 208: 
00020000 af CA i Hy _ BICL #TT2$M_DISCONNECT, IRP$Q_TT_STATE+4(R3) ; TRACK DISCONNECT TO BE SAM 
08 48 AS = 11”—~=CO#E:? Bc 33 BBC WT 13$v _DISCONNEC .UCBSL_DEVDEPND2(R5) 228; 
00020000 ef C8 31 6 BISL #TT2SMIDISCONNECT,IRPSQ-TT_STATE+4(R35_ ; 
D099 § 22$ 
0125 31 99 5 BRW DO_SET 3 NOW INVOKE SET MODE ACTION ROUTINE 


50 0908 ar 3 D09C g 258: MOVZWL #SS$_NOSUCHDEV,RO : INDICATE DEVICE NOT AVAILABLE 
0690 Al 8 BRwW TTYSBONE 
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v04-00 START_10 ACTION ROUTINES . Brynn} 382 Af: $3 33 YO ONUa.ponsecte trey TYSTRSTP.MAR; Page 0+ 
AG 
AS 3 DISCONNECT COMMAND LUCB FROM PUCB 
mT 3 IF NOT DETACHED, HANGUP SIGNALED 10 COMMAND PROCESS 
po Bhat | ea, POnPESCOMMECT: SAVE _IRP 
54 ; A MOVL ortyey FD_DISCONNECT,R4 + SCHEDULE DISCONNECT ON THAT PUCB 
FF5<' A Bou iy YSCRE_FORK 
3 BE AC Rov Rk ; RESTORE IRP 
50 1 3 AF VZWL #SS$_NORMAL ,RO 
068C 1 2 7 TTYSBONE 
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vous00% START 10 ACTION ROUTINES Meine BreBpa19be ba:T7:09 LTTOMUR.BugsRchStygcRste.manete® 18) vO 
3 
75 ; PROCESS HANGUP FUNCTION. THiS ROUTINE FORCES A MODEM HANGUP 
8 DO_HANGUP : 
88 28 PUSHR #*M<R3,R4,R5> ; SAVE REGISTERS 
FF46" 7 CLASS _MODEM_DIS + DISCONNECT UNIT 
BA OBA 0 POPR #*M<R3,R4,R5> + RESTORE REGITERS 
Me Bb 


BRw DO_EXIT 
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aTTsv : DISALLOW IF MODEM LINE 
ucB “BEVOEBEND «RS 30$ 
UCBSL : ACCESS PORT VECTOR 
al ‘ “SET MODEM, + BRANCH IF SET MODEM FUNCTION 
IRPSW~FUNT(R 20s 
#10$V~ oF #16 sy. _LOOP_EXT=10$V -LOOP+1» 
IRP -+0ee T MAINT SuBMODIF IERS 
ROU ucese Tt ct RAAINT (RS) ; PASS T0 PORT 
R : ASSUME ERR NULL POST ROUTIN 
TTYSMAINT ; TNVORE PORT OR RIVER TO DO FUNCTION 
#°C<UCBSM_TT_DSBL> ; RESET ALL BUT DISABLE 
uce TT_AAI ari (R5)- 
RO, 308 ; FAILURE 
UCBSL_TT_PORT(RS) ,RO + GET PORT VECTOR ADDRESS 
TTYSRES URES 3 RESET ANY CONTROLS STAT 
DO_EXIT + SUCCESS 

+ PROCESS SET MODEM SIGNALS 
RPSL REDIA®2(R3), R2 > GET SET/RESET MODEM MAS 
e°CcTT$e : CLEAR ALL BUT MODEM OUT 
TTSM_DS scecr re : BITS 
TISM~DS“RTS>,R2 
R3 : SAVE VOLITAL REGISTER 
TTYSDS_SET + SET /RESET SPECIFIED SIGNALS 
R3 : RESTORE REGISTER 
DO_EXIT : SUCCESS EXIT 
#SS$_ABORT,RO ; ERROR EXIT 
TTYSDONE 
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vous00% START 10 ACTION ROUTINES BrgEP19be bertoi09 UMTOAVR.ooes ec Me trseRSTP.MaRete” 1a) 
10D (418; 
p é ; READ OPERATION 
10D 421 bO_READ: : 
54 7B AS 00 100 4 UCBSL_SVAPTE(RS) ,R4 3 GET THE ADDRESS OF THE READ PACKET 
6 40 A C 11 4 BISL IRP$SQ_TT_STATE(R3),(R2) ; Set the read state bits. 
04 Ac 44 A ‘8 113 4 3 BISL IRPSO-TT“STATE+4(RS) ,4(R2) 
38 AS (4 18 ? $ CLRL IRPSL_MEDIA(RS) 3 et yp storage for the read 
; terminator. 
04 AA QO1ID 4&4 : BICW evceen TT_NOTIF,= 3; Set the ser has not been 
oe | ce SS 
e - ; Branch forwar rge e- 
03 20 i 123. 4 § IRP$SWFUNC(R3), 108 3 ahead not requested. woes 
FED?" 30 01 é 4 BSBW =—s TTYSPORGE_AHEAD ; Otherwise, purge buffer. 
1 | ? : 108: ; the write completes. 
00E4 dS 0129 4 Sa BSL_TT_TYPAHD(RS) : Type ahead buffer allocated? 
8 +} p 4 $ BEQL itt “oe : Noe = es Be spe ss yen 
FECE' 30 O12F 4 5 128: BSBW TTYSSETUP_READ ; Set up the UCB for a read 
1 440 3 operation. 
135 be 
1 rh > CHECK FOR LINE FEED NEEDED 
are 
1 446 * IF STATE = ; Skip if passall, or 
1 109 <PASALL>,25$ . ee 
136 44g IF_NOT STATE NOECHO, 14$ : NO ECHO THEN 
13a 44 CLR_STATE EDITING : NO EDITING 
13 450 148: If STATE - 
148 3 <nC ,WRAP>, 208 : if already did line feed. 
145 4 : IF _NOT_STATE NOECHO,15$ : Branch if echo 
09 E1 0149 4654 Bat #TT2$V_LOCALECHO,=- ; Branch if not local echo 
26 48 A 168 4 5 UCBSL_BEVDEPND2 (AS) ,208 
OOF C cs 3 14— 4 $ 15$:  TSTw yeBSW_TT_CURSOR(RS) : CURSOR AT 0? 
Q 1 4 : BNEQ ; If no, send no Line feed. 
OOF F 91 01 4 CMPB UCBse TT_LASTC(RS),- : Was the last character also a 
D 1 : 4 9 avTtyst_cr ; carriage return? 
9 12 O1 4 BNEQ ¢08 3; No. Don't send free Linefeed. 
158 4 ; IF NOT_STATE SKIPLF,17S NO SKIP INGE ED THEN BYPASS NOCRLF CHECK 
0122 ¢5 («O7 g 13 46 Bes #TTYSV_PC_NOCRLF ,UCBSW_TT_PRTCTL(RS),.20$;SO JUST ECHO THE CHARACTER 
165 466 17%:  SET_STATE <SENDLF> ; SEND A LINE FEED FIRST 
1 465 CLRTSTATE <SKIPLF> 
1 4 IF _ROT_STATE PROMPT, 20S ; DO WE HAVE A 
1 4 SET STRATE <SKIPLF> ; SEND A LINE FEED FIRST 
7 ‘ 208: IF STATE ROVERIFY,25$ : THIS ISN'T NECESSARY IF READ VERIFY 
54 7B AS go 158 3 mov UCBSL_SVAPTE (RS) ,R4 : GET THE READ PACKET ADDRESS 
7€ «oorc cS «6O3C CT7CO C4? MOVZ2WL UCBSW"TT_CURSOR(RS) (SP); SAVE THE CURSOR POSITION FOR EC 
02 4446 Bi 181 47 CMPW == TTYSW"RB"MODE(R4) ATTY KER ECHL : IS THIS A READ WITH | 


4 
— 


$ 
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TTYSTRSTP = Terminal driver start/stop 1/0 routine §8-JAN-1985 17:27: AX/VMS Macro - P 1 TTY 
v04-001 START 10 ACTION ROUTINES . BrgAP=19be bo:T9:09 ETTONVA.CORSRCSS Tr SeRSTP.MARGT CHD v04 
0 12 01 ; ore BNEQ 21$ THEN USE NO 
0128 c 98 47 MOVZBW UCBS$B_TT_OLDCPZORG(RS), viesy. TT_Cu Ha te YES THEN USE THE 
18E 476 rong INITIAL CURSOR POSITION 
"eR cs 98 47 MOVZBW UCB$B_TT_OLDCPZORG(RS), thydw RB_CPZORG(R4); 
2 AG 8 1 478 21$: CLRW TTS RB =LINREST (RA) 3 NO EXTRA CHARACTERS 
FE66' 9 197 47 BSBW FIND _BOL-NOCLEAR find the wrape abo” 
OOFC CS 3 F 198 & 9 CVTLW «6 (SP)F Otay Ai a cmd RESTORE T URSOR SOSITION FOR ECHOING 
3 31 19 4 358: RW TTYSSTARTOUTPUT 3 Go start the read. 
is 2 § F ; Allocate typeahead buffer 
33 DD O1A2 485 PUSHL ; SAVE IRP ADDRESS 
D4 O1A6 4 $ CLRL. oR : INDICATE NO DATA 
54 Qt, i 1Ag 4 MOVL &#TTYSV_FD_GETAHD,R4 + ASK FOR TYPEAHD FORK 
FESS 1A 4 8 BSBW TTYSCRE_FORK ; GO ALLOCATE BUFF 
33 BE EDO 1AC POPL = R83 ; RESTORE IRP ADDRESS 
FF lar 490 BRW 138 : CONTINUE PROCESSING 


——_——_—_——_, 
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TTYSTRSTP = Terminal driver start/stop 1/0 routine §-JAN-1985 17:27: AX/VMS Macro y04-00 Pp 14 | TT 
vou-008 START_I0 Action ROUTINES B38 1982 60:93:08 TIDRVR.BUGSRCITTYSTRSTP.MAR: 1) (13) vod 
182 493 
1 $32 ; SET MODE OPERATION - 
1B2 496 DO_SETM: 
oooc = «31 18 637 <! BRW DO_SET 
18 £99 3 DO SET CHARACTERISTICS 
18 1 DO_SETC: ; DO PRIVILEGED SET 
32.03 OC 81 018 : CMPW = #12, IRP$SW_BCNT(R3) > CHECK PARAMETERS 
15 018 BLEQ T ; ALL SPECIFIED 
00cs8 cS Os OBB CSS MOVL UCBSL_TT_DECHAI(RS),- ; INIT DEFAULT IF NOT SPECIFIED 
44 A 18F 5 IRPSG-TT-STATE +4 (R35 
1C1 3 PROCESS CHANGE OF CHARACTERISTICS AND MODE 
1¢1 8 3 CHANGE BASIC MODE BITS IN UCBSL_DEVDEPEND 
1¢1 510 DO_SET: 
4405 40 a3 CD ifs 11 MORL3 IRPSQ_TT_STATE(R3) ,UCBSL_DEVDEPEND(RS).R4; GET MODIFIED BITS 
0854 OD €5 OIC 1 BBCC = #TTSV_REMOTE,R4.8S ; DISALLOW CLEARING REMOTE BIT 
00002000 af CA CB 318 BICL  #TTSMTREMOTE, IRPSO_TT_STATE(R3) 
1p 16 oe ; DISALLOW SETTING REMOTE BI! 
44 a5 54 CA OID 1 > BICL  R4,UCBSL_DEVDEPEND(RS) ; CLEAR THE SHANGED BITS 
44 45 40 a3 C8 01D 1 BISL  IRPSO_TT~STATE(R3) ,UCBSL’ DEVDEPEND(RS); 
4105 394 1p¢ 18 MOVE =IRPSL-MEBIA+*(R3) ,UCBSB_BEVTYPE(RS); INSERT NEW TERMINAL TYPE | 
161 30 ; DEVDP1 BIT CHECKING | 
. ' 
0 4443 00 O1E1 3 MOVL. IRP$Q_TT_STATE+4(R3),RO ; GET SECOND DEVDEPEND WORD 
48 AS 30 cD 165 5 MORL3 RO, UCBSL“DEVDEPND2(R5),R1 ; GET MODIFIED BITS 
00000200 i CA OIEA 524 BICL  #<TT2$M_DCL_MAILBX>,RO ; REMOVE DCL SPECIFIC BITS 
1F1 5 
2451 06 €1 O1F1 4 BBC STTOSV DMA.RI 128 ; SKIP IF DMA NOT CHANGED 
14 30 06 E1 O1FS BBC #TT2$V~DMA,RO, 108 ; BRANCH IF TURNING DMA OFF 
0122 ¢ } 169 ) BBC #TTYSV~PC_BMAAVL ,UCBSW_TT_PRTCTL(RS),10$ ; DONT IF FEATURE NOT AVAIL 
00000040 oF c FE 529 BISL #TT2$M_DMA,RO ; SET DMA CHARACTERISTIC ON 
0122 ¢5 02 ag BIsw #T1YSM_PC_DMAENA,UCBSW_TT_PRTCTL(RS) ; ENABLE IN PORT 
0122 ¢5 P AR ; 10$ BICw  #TTYSM_PC_DMAENA,UCB$W_TT_PRTCTL(RS) ; DISABLE DMA IN PORT 
0 r CA 09 BICL #TT2$MDMA,RO ; "RESET DMA CHARACTERISTIC 
1 
19 5 12$:  NOMOD ALTYPEAHD ; DISALLOW CHANGING TYPE AHEAD 
03 £0 4 BBS #112$V_MODHANGUP, - 
11 48 Rg 4 UEBS BEVDEPNGS TAS) , 15S ; BRANCH IF MOLIFY HANGUP ALLOWED 
9 : PRIV_TO_MOD H ; REQUIRE PRIV TO MODIFY HANGUP 
A 541 158 PRIV-TO-MOD SETSPEED ; REQUIRE PRIV TO MODIFY SET SPEED 
4B PRIV-TO-MOD SECURE ; REQUIRE PRIVS TO MODIFY SECURE SERVER 


OO 


591 38$: BICL3 #*C<*XOF>, IRPSL_VAL5(R3),A0; GET THE NEW FRAME SIZE 


m4 
TIYSTRSTP - Terminal driver start/stop 1/0 routine 8-JAN-1985 17:27: AX/VMS Macro y04-00 Pp 1 TT 
v04=001 START_10 ACTION ROUTINES emt i bei9bi88 YT TORVR.BUGSRCIS TYSSRSTP.MARG To AGS vou 
5 43 PRIV_TO_MOD MODHANGUP ; REQUIRE PRIV TO MODIFY MODHANGUP 
06 50 5 €1 gp 45 BBC att $v_XON.RO, 208 ; BRANCH IF NO XON REQUESTED 
0 CA 4 BICL  #TTOSM7XON.R : RESET XON BIT. 
Fpa9" 30 i 4 BSBU 3=SsT TYSRESUME + CALL RESUME 
77 ‘8 208: 
48 AS 50 00 a p MOVL  RO,UCBSL_DEVDEPND2(RS5) ; SET SECOND DEVDEPENDENT WORD 
£8 ; ; SET UP WIDTH 
42.05 3A 03 BO 4 : MOVW =IRPSL_MEDIA*2(R3) ,UCBSW_DEVBUFSIZ(R5); INSERT NEW CARRIAGE WIDTH 
$ : SET UP SPEED 
51 4C AB 3¢ 0 8 : MOVZWL {RESW_TT_PRMPT (RS) .R1 ; GET NEW SPEED 
1 é 39 BEQL 0$ ; IF EQL THEN NO CHANGE 
6 61 ; SET SPEED PRIVILEGE CHECK 
00F4 cS) S191 6 § ; CMPB =s-R1,UCBSW_TT_SPEED(RS) ; IS LOW ORDER BYTE OF SPEED CHANGING? 
12 13 : 64 BEQL «6-28 + BRANCH IF NOT 
08 £1 dp 656 BBC #TT2$V_SETSPEED,- 
OD 48 AS é 6 UCBSL_BEVDEPND2(R5),28$ ; BRANCH IF SET SPEED ALLOWED 
00600089 ef D3 3 68 BITL #<<1@PRVSV_LOG_I10>! = ; DOES PROCESS HAVE LOG_IO 
9A 9 <1a@PRVSV_PHY_I0>>, = —; OR PHY_IO PRIVILEGE? 
9A 0 @IRPSL_ARB(R3) ; CHECK ACCESS RIGHTS BLOCK 
03 12 029A 571 BNEQ + BRANCH IF PRIVILEGED 
0190 «31 9¢ , BRW NOPRIV_EXIT : PRIV FAILURE 
oF 74; 
9F ee : PROCESS PARITY SETTINGS 
FG c§ 51 60 oS 8$: MOVW R1,UCBSW_TT_SPEED(RS) =; JNSERT LINE SPEED 
009c ¢3— 0S Fl 78 30$: BBC #T\SV_ALTRPAR, IRPSL_VALS(R3),35$; BR IF PARITY SHOULD NOT BE ALTERED 
“= ile af 88 O2AA 579 BICB3 #*C<TTSM_PARITY! TTSM_ODD>, IRPSL_VALS(R3),RO; RESET BITS 
co af BA 580 BICB «=: #TTSM_PARITY! TTSM_ODD,UCBS$8_TT_PARITY(RS); CLEAR CURRENT PARITY 
00F 8 9 £3 a8 7 1 BISB RO,UCBSB_TT_PARITY(RS) ; INSERT NEW VALUE 
¢ § > SET UP CHARACTER SIZE AND STOP BITS 
¢ 5 35s: 
009¢ C304 8 BC BBS #@TTSV_ALTFRAME, IRPSL_VALS(R3),36$; DOES THE \SER WANT A NEW FRPAM SI 
Oor8 cS) 22 g cg 587 BBC #UCBSV_TT_USERFRAME ,UCBSB_TT_PARITY(R5),37$; DID THE USER SPECIFY 
ce 88 : THE FRAME SIZE? 
38 11 02¢ BRB 428 : YES THEN DON'T BOTHER 11 
OOF8 C5 £3 cA 90 36$:  BBCC #UCBSV_TT_USERFRAME ,UCBSB_TT_PARITY(RS) ,3 
CB 02D0 
D6 


FFFFFFFO 8F 
50 009C C3 
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- Terminal driver start/stop 1/0 routine §8=.JAN-1 7: 'AX/VMS 1 
START 10 ACTION ROUTINES > eats ae ee cate hs SO a 
DA 59 BEQL 378 0 SP ECIFVED THEN CLEAR USER FRAME 
02 OF 38 3 D 238 INSV  0,#UCBSV_TT_LEN, #2, ucesh. TT_PARITY(RS); SET THE 
E 594 CORRE C TLY 
OOF8 cS 02 F3 E 95 BBCS #UCBSV_1T_USERFRAME,UCBSB_ 11 PARI ¥(R5),42$; AND SETUSER FRAME 
E 9 : SPECIFYED THEN CONTINUE ON 
06 E1 02€9 3 37$: BBC #TTSV_PARITY,- 
11 00F8 ¢ 8 38 UCB$B-TT_PARITY(RS),40$ ; IF NO PARITY, USE 8 BIT 
F €0 OEF 9 BBS #TT$V[EIGHTBIT,- 
gt 44 AS Fi 600 UCBSL ~DEVDEPEND(RS) 40% ; USE 8 BIT SIZE 
C5 18 A O2F4 é 1 BICB AUCBER TT LEN. UCBSB TT PARIT ¥(RS) RESET CHARACTER FRAME 
8 O2eF9 é BISB © #*X10, 0CBSB_TT_PARITY(RS) ; SET 7 BIT CHARACTER FRAME 
Os 11 OOF : , ies BRB 42$ 
OOF8 CS) «18 ~=—88 é 5 ane BISB  #UCBSM_TT_LEN,UCBSB_TT_PARITY(RS) ; SET 8 BIT CHARACTER FRAME 
009¢ c3 OA a 0 5 $09 “io BBE #TTSV_ALTDISPAR, IRPSL_VALS(R3),41$ : CHECK FOR DISABLE PARITY E 
oor8 cS «602):«COCAsCOO 608 BICL #UCBSM_TT DISPARERR,UCBSB_TT PARITY(RS) ; CLEAR DISMISS 
009c ¢3 «09 F 609 BBC #TT$V_BISPARERR, IRPS$L -VAL5S(R3) ,418 3; DOES HE WANT IT SET 
ooF8 cS) 01 3 6 610 BBSS sucove St pasrenanh,wceee. Yh pean tetas Atte YES THEN SET IT 
009c ¢3 08 i? : 611 41$: BBS #TTSV_TWOSTOP, IRPSL_VAL5(R3) ,43$ : DOES HE WANT TWO STOP BITS 
04 O0F4 cs 1 2 612 cnpe YCBSW_TT_SPEED(RS) #4 : SPEED <= 150 BAUD? 
OOF8 cS) «620 «88 «(0329 «614 438: BISB #UCBSM_TT_STOP,UCBSB_TT_PARITY(RS) + FLAG 2 STOP BITS 
05 11 0 : 615 baa BRB 46$ 
0o0F8 CS) «20 sé BA COO 0 ei? " - BICB «= #UCBSM_TT_STOP, UCBSB_TT_PARITY(R5) ; FLAG 1 STOP BIT 
6 3 613 : PROCESS FILL DATA 
9 5 6621 46s: 
D4 5 6 ; CLRL = RO : ASSUME \ W VALUE IS 0 
0A 44 A5_ OA FI 0 é BBC aTT$v =ERFILL L ,UCBSL DEVDEF PEND(RS) .50$; CR FILL ON? 
50 4 A ¢ 626 MOVZBL IRp $u"TT P ; GET NEW VALUE 
0254 0 FO 625 BBS aTT$v ~CRFILL, R4, seg t CHANGE? 
C 44 626 BEQL $ ; IF NEG EQL 0 THEN NO CHANGE 
00F6 C5 g 9 627 50$: MOVE RO,UCBSB_TT_CRFILL(RS) : RESET VALUE 
os 1 48 6 8 BNEQ 608 : IF NEQ THEN 
004405 OA EC 6 BBCC = #TTSV_CRFILL,UCBSL _DEVDEPEND(R ),60$; SET OFF 
0 04 0 60$:  CLRL be ASSURE NEW VALUE IS 0 
OA 44 AS fi 631 BBC #TTSV_LFFILL ucRst DEVDE PEND(RS) .6 $; LF FILL ON? 
50 OF A A 6 : MOVZBL IRPSW7TT_PRMP (BS), ERO ; GET NEW VALUE 
02 54 ( 6 BBS #TTSVILFFILL.R4,65 3 CHANGE? 
4 BEQL : IF NEG EQL 0 THEN NO CHANGE 
00OF7 CS 6 5 65$: MOVE RO,UCBSB_TT_LFFILL(RS) : RESET VALUE 
05 1 § BNEQ : IF MEQ TH HEN 0 
00 44 AS E BBCC 4 «=—-: @TTSV_LFFILL,UCBSL_DEVDEPEND(R5) 758; SET OFF 
$ CHECK FOR CHANGE IN STATUS OF MODEM 
?5$: 
1256 15 €1 42 BBC #TTSV_MODEM,R4, 80S ; NO CHANGE IN MODEM STATUS 


B 5 
TTYSTRSTP - Terminal driver start/stop 1/0 routine eeeiz 7: AX/VMS Macro v04-00 Pa 17 
V i START_IO ACTION ROUTINES g-2F 1984 0 ug 83 TTDRVR.BUGSRC TTYSTRSTP.MAR: 1 (13) 
1F 73-643 PUSHR #=McRO R1 R? R3,R4> ; SAVE YOLITAL REGISTERS 
0 Sf 3 644 MOVZBL sMODER EMSC R ASS DEM INIT 
4405 15 €0 4. 645 BBS T$V MAOBER, utBSL pevoentnai) =" ve 
51 bi 9a 037 gt) a MOVZBL 1 atepees R1 : NO, SHUT DOWN 
FC7D" 30 ote "BSB TRANS 10N NOCHE CK ; DECLARE MODEM TRANSITION 
1f BA $30 POPR #*M<RO,R1,R2,R3,R4> 
68 80S: 
634 : enable or disable AUTO XON AND XOFF 
0049 ef AB 3 656 BISW #TTYSM_PC_XOFENA,UCBSW_TT_PRTCTL(RS); TURN ON AUTO XOFF 
05 44 AS : E0 C 657 BBS #TT$v -PASSALL UCBSL_DEVDEPEND (RS) $48: 1 1s, THIS uPASSALL? YES THEN 
07 44 a5 £0 1 658 BBS #TTSV-TTSYNC,UCBSL_BDEVDEPEND(RS) 8 c Is SET THEN LEAVE | 
9049 ef AA 36 659 84$: BICw #TTYSA_PC YXOFENA-OCBSU TT_PRICTL(RS): fin ofr “AuTO XOF F 
$390 660 85$ 
0390 661 ; 
b335 666 ; COPY OVER PASSALL AND NOECHO TO CURRENT STATE 
44 a5 FC er 8B 0390 664 * BICB3 #*C<TTSM_PASSALL! TTS$M_NOECHO>, UCBSL_DEVDEPENE (RS) ,R4 
02 02). 34 FO si 665 INSV = RG WT TYSV_ST_PASALL,#2,4(R2); INSERT IN STATE VECTOR 
A nN 08 EE O3A9 666 EXTV #TTSV_ESCAPE,#1,UCBSL_DEVDEPEND(RS),R4 ; GET CURRENT SETTING 
01 a 34 FO O3Ar 667 INSV = RG, #WTTYSV_ST_ESCAPE.#1,4(R2) ; UPDATE IN STATE 
04 48 AS 12 €1 0385 668 BBC #TT2$V_PASTHRU,UCBSL_DEVDEPND2(R5),S98$ ; IN PASS THRU MODE 
038A 669 SET_STATE PASACL 
O3BE 670 988: 
O3BE 671; 
Baee ore ; INIT THE UNIT TO CHANGE THE SPEED AND PARITY 
FC3F* 30 O38 67 y BSBW = sd TTYSSET_LINE ; INIT LINE SPEED AND PARITY 
si 676 > IF MULTI IS SET THEN THE 1/0 MUST BE STARTED 
9 C1 678 100$: iF NOT_STATE MULTI,110$ ; BR IF MULTI NO SET 
016A 30 oe 67 BSBw TTYSSTARTOUTPUT > START THE MULTIPLE OUTPUT 
i é ° > CHECK FOR SET CHARACTERISTICS AND RETURN IOSB DATA 
53 SB AS DO O38 6 5 110$: MOVL ucBst IRP(RS) ,.R3 T CURRENT PACKET ADDRESS 
a ap 09 ED eC 684 CMPZV «6 #IRPSU_FCODE .#1RPSS _Fcove, fhesae FUNC(R3) ,@TTY$C_FC_SETC; SET CHAR? 
3A 2 D2 685 BNEQ 120% 7_If NEQ THEN NO 
OOF C3 D bs 686 MOVL UCB$W_TT_SPEED(RS) ,UCBSW_TT_DESPEE(RS); RESET PERM SPEED 
63 E1 0308 687 BBC #1T2$V_AUTOBAU 
05 48 AS bp 688 UCBS$L ‘BE VDEPND = 115$ ; BRANCH IF NOAUTOBAUD 
98 0360 689 mOV7BW i C“BA UD, 
OER ¢ cs Eg 690 UCBSW"TT_D ins» ef" PERMANENT 9600 BAUD FOR AUT OBAUD 
90 0365 691 115%: MOvB UCBS8~ TT” es nith ) /ucesi_ DEPARI(RS); RESET PERM PARITY 
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TTYSTRSTP = Terminal driver start/stop 1/0 routine §8=-JAN-19 7:27: AX/VMS Macro v04-00 P 1 
v04-001 START_10 ACTION ROUTINES g- amtt H b0:95'38 TIDRVR.BUGSRCITTYSTRSTP.MARG To A 
OOF § f 8 E9 
dO et 692 MOVL UCBSB_DEVTYPE(R5) ,UCBSB_TT_DETYPE(RS); RESET TYPE AND WIDTH 
onal i cB rs 693 BICL3 #TTSM_REMOTE ,UCBSL_DEVDEPEND(RS) ,UCBSL_TT_DECHAR(RS); RESET PERM CHA 
oo¢e c PR 
ent a3 dO Hy 694 MOVL UCBSL_DEVDEPND2(R5) ,UCBSL_TT_DECHA1(R5) ;UPDATE SECOND CHAR WORD 
4 695 
06 44 a3 OF €1 04 69 BBC #TT2$SV_ALTYPEAHD, IRP$Q_TT_STATE+4(R3), 1208; SKIP IF ALTERNATE 
4 69 TYPEAHEAD NOT SPECIFIED 
00c8 ¢S)—s(«O? Fe rt 698 BBSS #TT2$V_ALTYPEAHD ,UCBSL_TT_DECHA1(R5),120$ ; ONLY ALLOW SETTING 
40E $99 ; AS PERM CHARACTERISTIC 
ce fey 
€ 7 ¢ 3 UPDATE NEWLY WRITTEN FIELDS WHICH ARE MAINTAINED 
: : 4 ? 3 IN BOTH THE LOGICAL ANY PHYSICAL ucB 
$0 00CO CS DO 040 705 MOVL UCBSL_TT_LOGUCB(RS) RO ; GET LOGICAL UCB ADDRESS 
44 00 44605 00 041 206 MOVL UCBSL “DEQDEPEND (RD). UCBSL_ DEVDEPEND(RO) ; UPDATE CHARACTERISTICS 
48 AO 48 A5 00 041 70 MOVL UCBS$L_DEVDEPND2(R5) ,UCBSL-DEVDEPND2(RO) ; “UCBSL_T 
40 a0 40 a5 ~~ 00 1D 8 MOVL UCBSB ~DEVCLASS (RS) ,UCBSB_ BEVCLASS (AO) 3 CLASS, TYPE BUF SIZE 
N% 710 ; THIS ROUTINE COMPLETES SET AND SENSE CHARACTERISTICS OPERATIONS 
. ay ; AND RETURNS STATUS VALUES IN THE 10SB 
ig DO_EXIT: 
50 O0OF2 CS DO ss 714 MOVL UCBSW'_TT_SPEED-2(R5),RO; RETURN SPEED 
sh nore oF cB ts? 715 BICL3) #*C<<O0CBSm_TT PARTY !UCBSM_ TT_ODD>@16>,UCB$B_TT_PARITY=2(R5) .R1; 
51 90r6 cS «BO 1 rig MOVW UCBSB_TT CRFILL(RS).RI INSERT | at DATA 
0 01 Cc $ 71 mOVW #SS$_RORMAL,R ; SET STATUS 
0305 1 ; 3 BRw TTYSBONE 
C 720 NOPRIV_EXIT: 
50 ¢ DO C 721 MOVL #SS$_NOPRIV,RO ; SET NO PRIV 
1 4 O043F 7 ¢ CLRL R1 ; CLEAR RI 
O2FD 1 ro ’ ; BRw TTYSDONE 
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rt/ 
ON ROU TINES 
$i : WRITE OPERATION 
§ bo WRITE: 
I: Control only comes here in t 
4 
8 


rer ; duplex writes use the TTYSwR 
53 A3 0 04644 RPSL_SVAPTE(R 
00000585" EF BF ret PUSHAB LAV SSTARTOUTPG 
0040 3 44 BSBW WRTISTARTIO 
45 RSB 


do 5 
stop 1/0 routine 97 76n~ 198? 
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TTDRVR.BUGSRCITTYSTRSTP.MAR; (14) 


se of half duplex writes. 
TIO entry point. 


; Get addr of write block 
; if write is started, control 
; will return to STAR ARfOUTPUT 


Full 


if queued, control will return 


here. Return to cailer. 
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Ee § 
ver start/stop 1/0 routine 8-JAN-1985 17:27: AX/VMS Macro y04-00 P 
- Starts or Sususs a writ met} F Br:95 388 TTDRVR.BUGSRC TTYSTRSTP.MAR: 1) (i) 


-SBTTL TTYSWRISTARTIO = Starts or queues a write operation 


> 
> 


Functional description: 


If celled from an FDOT routine (or from EXESBRDCST), 
TTYSWRISTARTIO first raises to device IPL, and then calls the 
hrough the WRTSTARTI 


internal routine. All other code enters t 0 


entry point. 


f a write is occurring, the routine queves the write buffer. 
f a read is occurring, but the butter header specifies 
ah ytted s o the routine starts the write. 
If a read is occurring, but no characters have been received 
yet, the routine starts the write. 
Otherwise, the routine queues the write buffer. 
To start the write spores ton the routine writes the address 
of the buffer in UCBSL_TT_WRTBUF, sets and clears various 
state bits, and returns. 


To queue the buffer, the routine inserts the buffer address at 


5 : the end of the queue unless the header specfies write- 
5 3 Bross coreume. In the latter case, the buffer address is inserted 
: Ne : aiter the last wr te-break through request in the queue. 
5 76 ; Geturning from WRISTARTIO is odd. The routine assumes that 0(SP) 
5 768 ; is the address to return to if the write is to start now. 
5 6 3 If the routine instead queues the write, the routine pops this 
5 7 ’ 3 start-write address of the stack, and returns to the real 
5 aA 3 caller. 
ab > Inputs: 
520775; RS - address of the write buffer 
re : & - address of the UCB 
oe : Implicit inputs: 
45 9 : The write buffer consists of a header, and an optional message 
4 781 ; buffer. For mreogcget messages, the message buffer is absent. 
§ : TTYSL_WB_FR3 is 0 for a normal broadcast and 1 for and ANSI 
? : broadcast or one that specified norefresh. 
5; Outputs: 
, $ : If the broadcast message is rejected, the TTYSL_WB_END field 
: of the write packet is zeroed. 
, : R - preserved 
3 7 - scratch 
§ 3 R - address of UCB state bits 
: R - egerets of buffer 
Be : RS - packet is started, address of IRP or 0 
$5; - if packet is queued, scratch 
e3 RS - address of UC 


TTYSTRSTP inal driver start/stop 1/0 leuktes =JAN-1985 17:27: AX/VMS Macro TY 
you200t TSTARTIO - Starts or Suse awrit = 36071382 §2:95:38 TTONUR.BOSERCATTYSURSIP. MAR; Page iby v0 
7; 
3 : Implicit outputs: 
9 ; Buffer may be entered in queue. 
: rite operation is started 
i ; itetr it. URIBUF - ad ress ot buf fer 
4; UCBSO~ We “STAT = ur bit, and other bits from IRP are set 
5 3 ontrot=6 any be e canceled 
$ : UCBSL_DEVDEPEND - mai lben may be enabled 
9 TTYSWRTISTARTIO:: ; Start or qyeus write. 
51 OOA0 1 MOVL ie TL PHYUCB(RS),R1 ; GET PUCB ADDRESS 
\§ BEQ 3 NONE CURRENTLY EXISTS 
55 3 1 MOVL Ri, ; SWITCH TO PUCB CONTEXT 
24 A C 14 TSTL rrise -WB_IRP(R3) ; Is this a broadcast? 
oc f 15 BEQL 208 5 yes. SPECIAL CASE 
61 18 10$ 3 pcceptests caaeee 
FB9C' 61 1 BSBW TTY$LO 3 se to DIPL, get states. 
00000532‘EF 64 18 PUSHAB TTYSSTARTOUTPUT 3 aes up Bay address to 
6A 1 ; start the output. 
25 6A 0 BSBB WRTSTARTIO ; Start or queue the packet. 
6C 1 RSB :; If packet queued, control 
6D § 3 returns here, so return to 
6D 3; caller. 
60 4; INTERNAL BROADCAST PACKET. 
2 5 bos CHECK FOR DISABLE 
46D ; : BITL viten a a ; Test for passall and/or 
6E 3 TT$ m_ROBRD ; nobroadcast modes set in the 
6002009) Br 8 UCBSC  DEVDEPEND (RS) ; term's UCB (ignore NOECHO). 
fA 47 0 BEQL 10$ ; Continue if not 
20 A3 47 1 25$: CLAL TTYSL_WB_END(R3) ; Zero end address. te" indicate 
7A § ; failure to EXESBRDCST. 
A Z RSB ; And return to EXESORDCST. 
78 5 3 LUCB CVRRENTLY DETACHED 
78 § 3 COMPLETE THE 
A 30$ ASSUME IRPSL_IOST1+4 EQ IRPSL_IOST2 
51 24 A3 00 478 "MOVE «ss TTYSL_WB_IRP(R3),R1 : GET IRP ADDRESS 
F6 7F 4 BEQL 25$ » INTERNAL BROADCAST, REJECT IT. 
_— oe bP 481 4 VL R1,R3 : GET IRP ADDRESS 
38 a3 4 $5 CLROQ IRPSL IOST1(R3) INIT I0SB8 RETURN 
38 A301 06 7 84 MOVW #SS$_RORMAL, IRPSL_ 10ST1(R3) 
00000000 ' GF rt: JMP G*COASPOST 
1 
91 48 WRISTARTIO: ; Checks for start or queue. 
rh4 4 
491 ; Inputs: 
491 23 - 
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=JAN-1985 17:27: AX/VMS Macro v04-00 
awrit =36N7 1382 §o:95i38 TTDRVR.BUGSRCITTYSTRSTP. MAR. 79 * 8) 
address of state bits longword 
address of write packet 
address of the dev ce’s UCB 


address to return if write is 
address to return to if write 


ueued 
s started 


pene? 


Save a 
L -TT_WFLINK(RS) RO 


set address of write queue. 
Get address of 


a register 
YSL-WB_IRP(R3) ,R4 


TE = ; If writing is in pro reas. 
WRITE ,QUEVE_PKT 3; just queue the packe 
54 b A TSTL RG : See if the packet has an IRP. 
42 1 BEQL START_PKT 3 i not, just start the packet. 
4A4 IF_NOT_STATE = : If not in a read state 
SAG READ ,START_PKT 3 99 ahead and start the “packet. 
4A IF STATE = ; If noecho read, no blocking 
4A NOECHO,START_PKT ; so start the write 
09 £0 O4aCc BBS #10$V_BREAKTARU 
35 $0 A4 4A IRPS$W WAUNC CRG) YeTaRT _PKT; Start if break thru write. 
51 8AS OD 48 MOVL UCBSL-SVA PTE(RS5) RI ; get the read packet address 
3C Al 6B 85 TSTW it _RB TRHOFF CRY) : and check if we have started typing 
i 488 BEQL START_PKT : ge start the packet. 
19 11 O4BA BRB QUEUE- “AST 3 sheruise, queue packet at end 
4BC 3; of queue. 
4BC 
48C QUEUE _PKT: 
54 D5 04BC TSTL R4 : If an IRP is associated, 
15 is 4B BNEQ QUEUE _LAST 3 Queue packet at end of queue. 
54 50 oD : MOVL RO,R4 ; Make a copy of queue head. 
C 10$: 
51 $s DO O4C MOVL aA WB_FLINK(R4) ,R1 ; Get first queue entry. 
59 , OF ce CMPL 3; See if at end of re 
OA «13+ «04C BEQL Sueue : If yes, put at end of queue. 
24 Al iDS5 cB TSTL i ties “ta IRP(RI) :; Else, see if this ears "hes an 
cE 3 pote feted IRP 
09 12 C BNEQ INSERT_PKT 3 yes. branch. to insert 
D 3 pec Ket ,retere f t. 
54 51 00 D MOVL R1,R4 ; Otherwise, go on to next 
ce 11 p BRB 10$ > entry in queue. 
D QUEUE _LAST: ; Queue at ond of queue. 
54 04 A0 00 4 MOVL TTYSL_WB_BLINK(RO),R4 , Get back pointer. 
D9 INSERT_PKT: 
$3 O€ 09 INSQUE TVS. _WB_FLINK(R3),- : Insert new packet in the 
6 0B TTYSL~WB_FLINK(R4) 3 queue. 
1 BA DC POPR #°ncRO> ~ ; Remove saved register and 
3} 8 i) pf MOVL {sP) R1 ; get queued addre 
E ‘ E ewvul a8, se : clean stac 
6 E4 JMP crf) > return to "queued address 
Fs START_PKT: 3 stort the packet 
0004 ¢5) «=653—s«éiO E MOVL R3.UCBSL_ TT_WRIBUF(RS) ; nt to packet from UCB. 
i} SET_STATE = 3 ee the write state. 


TT 
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TTYSTRSTP - Terminal driver start/stop 1/0 routine §8-JAN-1985 17:27: AX/VMS Macro v04-00 P 
v04-001 TTYSWRISTARTIO = Starts or Queues awrit =4tN= 1382 0:95:88 TTDRVR.BUGSRC TTYSTRSTP.MAR: 1) (3) 
et 1 WRITE 
3 9 4EF 1 TSTL Be 5 if this write does not have an 
1 4F 1 BEQL 208 3; IRP, don’t check iw ields. 
6 40 AQ C F 1 BISL IRPSQ_TT_STATE(R4),(R2) ; Set write state bits. 
04 A 44 AG «CB OG 1 BISL 1RP Q"TT“STATE+4(R4) ,4(R2) ; Set write state bits. 
BAS DS O4FC 1 CLRL RPSL_MEBIA(R4) ; Set up np for completion. 
E1 O4FF 1§ BBC #10 Vi ra X,> ; Branch if enable-mailbox 
15 20 A4 ] ! IRPSW_FUNC(R4) ,10$ ; is not requested. 
51 O88 Hy dO 4 i§ MOYL UcosL wt LOGUCB(RS5),R1 ; GET LOGICAL UCR ADDRESS 
0001 60 14 CA 920 BICL aTT M~MBROSABL ,UCBSL_DEVDEPEND(R ) ; CLEAR MAILBOX DISABLED PHYSICAL 
shied e CA } 921 BICL #TTSM_MBXCSABL ,.UCBSL_DEVDEPEND(R1) ; CLEAR MAILBOX DISABLED LOGICAL 
19 9 
19 «9 : 10$: 
06 £1 19 924 BBC #10$V_CANCTRLO,- 3; Branch if cancel control-0 
11 20 A4 51B 9-925 IRPSW_FUNC(R4) ,30$ i; is not requested. 
BY 4 § CLRSTATE Sn ; Clear control-0 state. 
0B i? ; 1 4 3 BRB SO 3; And start the output. 
524 930; 
524 931 ; Start a broadcast packet. 
524 9 § ; 
: 4 3 4 208: 
0B a 94 63 4 935 : CLRB TTY$B_WB_FIPL(R3) ; Indicate block free to fork (for DMA) 
04 10 A E9 : 4 $ PEP card eect MON RD) 1508 ; Branch if ANSI broadcast or norefresh 
528 3 = <REFRSH> ; Set refresh read 
S2F 939 30S: 3; Go output buffer. 
03 BA O5S2F 940 POPR #*McRO,R1> ; Restore saved register 
be 1 941 3 and queued address. 
05 0531 942 RSB 3 And return to caller. 
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OPERATION 5-SEP= THORVR.BUGSRCSTTYSTRSTP.MART I (46) 
.SBTTL TTYSSTARTOUTPUT = START OUTPUT OPERATION ON UNIT 


3 ++ 

; TTYSSTARTOUTPUT = START OUTPUT ON UNIT 

} FUNCTIONAL DESCRIPTION: 

; THIS ROUTINE IS USED TO INITIATE OUTPUT ON A UNIT. THIS OPERATION STARTS 

: THE FLOW OF DATA EVEN IN THE CASE OF READS. THE ACTION IS TO TEST THE 

: STATE OF INTERRUP EXPECTED. IF AN INTERRUPT I$ EXPECTED. THEN NOTHING NEED BE DON 
: BECAUSE A SUBSEQUEN INTERRUPT WILL CONTINUE APPROP. WITH THE CURRENT STATE. 

: IF NO INTERRUP 1s EXPECTED. THEN THE TTYSGETNEXTCHAR ROUTINE IS ENTERED TO RETURN 
; THE NEXT CHARACTER(S) FOR THE UNIT. THEN IF AVAILABLE THE PORT DRIVER 

> STARTIO ROUTINE IS ENTERED. 

; THIS OPERATION IS IDENTICAL TO THE OPERATION OF AN OUTPUT READY INTERRUPT 

: INPUTS: 

; R2 = ADDRESS OF THE UNIT STATE VECTOR 

; = UCB ADDRESS 

? outputs: 

i NONE 


fTYSSTARTOUTPUT:: Sots T OUTPUT 
0 BBS duces INT UcBsy. STS(R5) fl 08; rhEAVE HERE IF INTERRUPT EXPECTED 
MOVL CBSL_TT port TR THE PORT'S VECTOR TABLE A 
BSBw TTYSGET NEXT CHAR : GET NEXT CHARACTER FOR UNIT 
BLBC -UCB$B_TT bust PE(RS), 1008; LEAVE IF NOTHING TO OUTPUT 
JMP @PORT-STARTIO CRO) : START OUTPUT ON LINE 
100$: RSB + RETURN 
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53 00CC ; 
00000586 EF 
FFOF 
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 SBTTL TTYSGETNXTWRITE = Start next write or restart read 


+ 
+ 


; Functional description: 


This routine gains control at device IPL on return from the 
VMAS fork queuing routine. The routine tries to restart a 
suspended but now active read, or to dequeue and start the 
next write request vis WRTSTARTIO. 


The routine always returns to the caller of TTYSWRITEDONE, 
TTYSREADONE, or BRDCST in TTYCHARO. This caller is usually 
GETNEXTCHAR, so setting states causes the driver to go on 
echoing and outputting. 


O(SP) = address of the UCB state vector 
4(SP) - address of the UCB 
Outputs 
a - address of the UCB state vector 
£ - address of a write buffer if writing is to begin 
RS - address of the UCB 


The 2 named inputs are removed from the stack. 


TYSGETNXTWRITE:: 3; Check for a new write. 
POPR @*M<R2,R5> :; Restore UCB state address and 
; UCB address. 
IF _NOT_STATE = ; If not in a read state, just 
READ ,10$ ; branch forward. 
IF_STATE - 108 : If noecho, don't block writes 
CMPL UCBSL_fT UF LINK(RS) ,- 
YESSL TT MBL INK CR ) 5 queue empty? 
BEQL :; Branch if yes 
MOVL UCBSL_TT_WFLINK(RS),R3 ; Fetch address of next irp 
BBS #10$V-BREAKTHRU,- 
IRPSW~FUNC(R3) , 108 ; Start if break thru write. 
5$: VL  - UCBSLSVAPTE(R5) ,R3 ; get the read packet address 
TST  §TTYSWTRB_TXTOFF (A3) : See if any input 
; has been received. 
BNEQ 208 ; If yes. go restart read. 
108: IF _STATE WRITE,30$ 


3; next wr 

; Otherwise, look for a write. 
REMQUE CBSL_TT_WFLINK(RS) R35 ; Get a new write buffer. 

3; Branch if no buffers exist. 
PUSHAB $ ; Save a write start return 

3; address. 
BSBW WRISTARTIO 3; Start the write. 


wu 
“<= 
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TTYSTRSTP - Ter driver start/stop 1/0 ro Sen -/AN-1985 
04-001 TTVEGETNRTUAT TE Te Sear t/stop 1/9 F or re 5-SEP-198% 
1034 RSB 
FATA" 30 1039 BSBW «CTT YSRESTARTIO 
586 1038 
$86 1039 308 
05 0586 1040 RSB 


4; te 39 THORVR. BUESRC PiystRsTP. MAR: a mis 


Return to GETNEXTCHAR, 


Restart the read, if any. 


Joint read/write return. 
Return. 
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-SBTTL TTYSWRITEDONE - Complete a write operation 


j 
—$ 


yee 
 TTYSWRITEDONE = WRITE OPERATION DONE 
> FUNCTIONAL DESCRIPTION: 


This routine creates a fork process to complete the write, and 
checks for another write packet to start up. 


INPUTS: 


| 
Re = ADDRESS OF THE UNIT STATE VECTOR 
R> = UCB ADDRESS 


TTY$W_WB_STATUS = status of operation 
TTYSW_WB_BCNT = number of bytes transferred 


OUTPUTS: 
R2,.R5 ARE PRESERVED. 


TTYSWRITEDONE: : ; Complete write operation. 


: This routine used to start by clearing a whole raft of state bits. 

; I only turn off write-related bits, and I do that in TTYSGETNATWRITE. 

; The bits I no longer modify are: 
| 
| 


READ, DEL, XON, EOL, PROMPT, CTRLR, NOFLTR, ESC, ESC_O, and 
BADE $C 


24 


PUSHR #*M<R2,R5> ; Save state and UCB address. 


53 00D4 C5 


MOVL UCBSL_TT_WRIBUF(RS),R3 ; Get address of write buffer. 


; NEW LINE MODIFIER 


7 2 
54 26 a bh TTYSL_WB_IRP(R3) RG . Get address of associated IRP. 
07 20 Ad ef BBC #l0sv NEWLINE, IRPSW_FUNC(R4),10$; NO NEWLINE THEN DON'T ADD A THING 
ses SET_STATE <SEROLF,SKIPLF NLS 
"  CLR_STATE = : Clear the write bits. 
{ Bd WRTALL> ; 
PUSHAB TTYSGETNXTWRITE ; Return address after queuing fork 
5 WRITEPOST: 


; Set up fork IPL in the bufter 
; block 


“~~ 
Poh 
we 
~ 
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OC AS 
55.53 
00000000 ' EF 


wis 
rm 
>>> ate he | 
~- wen 


el 
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“-SEP-19 
MOVL TTYSL_WB_IRPC(R3) RS i; Get address of associated IRP. 
nue 


BNEQ 5$ 3 one there then cont 
MOVB 4 ba ad ato - ; for broadcast fork to iplé 
TTY$B8-WB_F IPL (A3) 
clrl (sp) i; no irp then no process to fork to 
$$ orb 7$ 
PUSHL IRPSL_PID(R4) ; FORK ON THE PID OF THE IO OWNER 
7$: MOVL ay RS Setup fork block address. 


Create a fork process. 


JSB TTYSSYNCH 


: This is the write completion fork process. Registers are as follows: 


RG - address of IRP 
R5 - address of write buffer (TwP) 


MOVL R4,RS : Need IRP in R3 for I/C post. 
BEQL =: 1008 


IF DF CAS_MEASURE_IOT 
SACCUMULATE STATISTICS ON NUMBER OF CHARACTERS AND I/OS TO TERMINALS. 


BSBB TTSTATS ; CALL STATISTICS ROUTINE. 
~ENDC 
; NOTE: IRPSL_MEDIA = IRPS$L_IOST1 
3; NOTE: terminal position is O-based; interface position is 1l-based 
MOVL R5,R4 ; Put buffer address in R4. 
MOVZWL RPSL MEDIA(RS) ,~ ; number of Lines output for the 
IRP$L_1IOST2(R3) ; write Q10, and zero other values 
MOVL TTYSW_wB 1 maa 3 move status and count of bytes 
IRP$L-10ST1(R3) ; transferred into 10S8 
MOVL IRPSL_UCB(R3) RS ; Repetn LUCB address. 
MOVL UCBSLTL_PHYUCBCRS) .RS > Switch to Physical context 
BEQL ; Disconnect has occured! 
CAPu Ureeu it cuneoe (Re). ; Is cursor marker beyond the right- 
yge “DE VBuUFSIZ(R5) . hand edge of screen? 
BGEQ : Branch if cursor has pone too tor. 
ADDW yresy 1 -cuRsgn (a5) - 3; Else return cursor column posit on, 
#1, IRPSL-1OST +2(R35 ; adjusted for zero offset, in 10SB. 
BRB 14 ; pent rave Sutterag 1088. 
128 MOVY uc Sy DE VOUE SIZ IRS). ae | necessary return cursor column 
IRPSL_10ST2+2(R3) 3 posit n [0S8 as r ght-hand edge. 
14% aposs) = TT_LINE(R5S),- ; move Line position into I0SB 
8 SL“TOST2+3(R3) 
15$ MOVW T SHZEIAG) = ; Move size of buffer into IRP 
l F (RS) ; to record quota used. 
l CB(R3) RS ; Restore logical UCB address 


| 
| 
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TTYSWRITEDONE = Complete a write operat -SEP-1984 TTDORVR.BUGSRCITTYSTRSTP.MAR; 1 (18) 
58 AS 3 D 11 CMPL UCBSL_IRP(RS) 3; Is this the current write 
86 } et Hi BEQL 86 2 3 bles king the “70 queue? 
00000000'GF 17 1} 1188 20$: JMP G*COMSPOST : Full duplex: complete write 
0618 1161 30$: 3; Half du uote 
50 38 A3 7D 0619 1106 mMOVa IRPSL_MEDIA(R3) ,RO 3; Load JOST1 and 10ST2 in RO,R1 
42 116 REQCOM 3; Complete request and get next 
1188 1008 3; entry in system queue. 
53 $e AS DO 06 1198 ; MOVL L_WB_END(RS) ,R3 ; GET THE ADDRESS OF THE LAST CHARACTER 
C B85 617 «206 118 JMP Yc WB RETADDR(RS) ; Want fork process to gain control 
62A 1168 ; string for fork process use. 
be A 1187 
62A 1170 
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/stop 1/0 routine §8-JAN-1985 17:27:33 VAX/VMS Macro v04-00 
RITE E 8 ee 14 + ¢ ve 78, 


r start 
QUEUE A Ww COMPLETION 5-SEP=19 TTDRVR.BUGSRCITTYSTRSTP. MAR: i 
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T 
62A 1178 .SBTTL TTYSWRITEPOST = QUEUE A WRITE COMPLETION 
B5a 1198 
3 e 
6 A 1128 ; TTYSWRITEPOST - QUEUE A WRITE COMPLETION 
6 A 7? > FUNCTIONAL DESCRIPTION: 
62A 1158 : THIS ROUTINE FORKS ON A 1wP TO COMPLETE A QUEUED WRITE OPERATION 
“ 1] 3 BOTH HALF AND FULL DUPLEX 
6 A 1 : + INPUTS: 
620A 1184; R4 = TWP ADDRESS 
06 A 1 5 i RS = UCB ADDRESS 
06 A 1 $ : UCBSW_BOFF = STATUS OF OPERATION 
06 A 1189 : OUTPUTS: 
062A 1191: RO,R1,R2,R3,R5 ARE PRESERVED 
Oe5a 1198 
Oe A 1194 TTYSWRITEPOST:: 
28 8B Oe A 1196 PUSHR  #*M<R3,R5> : SAVE REGISTERS 
53 54 DO 062c 119 MOVL ha R3 > TWP ADDRESS 

3A AS 84 «(062F «(1198 CLRW TY$W_WB BCNT (R3) + NONE TRANSFERED 

C a5) 6BO (06 é 1199 MOVW utasu- BOFF (RS : SAVE COMPLETION STATUS 

28 Ad 0635 1200 TTY$W~ oB CTA Tug (R3) 

FF71 30 0637 1201 BSBw WRITEPOST ; QUE THE FORK 

28 «BA 065A 1 08 POP), #*M<R3,R5> 
05 063C 120 RSB 

063d 1204 
063D 1205 


> COMPILE STATISTICS FOR WRITE 

20s: INCL  G*PMSS$AL -WRITETBLCRO} 
INCL  G*PMSS$GL~TWRITES 
ADDL2 R11 Pe PneScL _WRTCNT 

40$: RSB 


-ENDC 


bef te dell APPROPRIATE RANGE. 
INCREMENT WRITE COUNT 
siciat + (| TOTAL COUNT FOR CHARACTERS 


WRITTEN, 
RETURN TO CALLER. 


C 6 
nal driver start/stop 1/0 routine 8-JAN-1985 1 3 VAX/VMS Macro v04-00 1 
TEPOST = QUEUE A WR RITE COMPLETION -SEP-1934 0 42:43 ‘33 TTDRVR.BUGSRCITTYSTRSTP. MAR: ; ve 3) vc 
D 1207 
. ! os -IF DF CAS_MEASURE_IOT 
dD 1 : Subroutine to accumulate statistics on the number of 
4 : ! : the number of characters read and written to terminals 
dD 1 18 fTSTATS: :BLBC G*PMSSGL_DOSTATS,40$ 3; IF FLAG SET grease STATISTICS CODE 
D 1214 roviw I RPS W BERT (RS), >, RI : GET # CHARACTERS TRANSFERRED. 
4 : 1? DIVL $ erareshy SARE REPT IN INCREMENTS 
D1 i$ CPL "00 > LAST agntay H TABLE iS FOR I/0S 
ee 18 3 >= 45 CHARACTERS. 
D 121 BGEQ 10$ 
D 1220 MOVL #9,R0 
D 1221 108:  CMPZV W1RPSV.F CODE, #IRPSS_FCODE. RP Su. FUNC (R3) ,#TTYSC FC_READ 
dD 1 5 ; CHECK"IF JUST fINISHED A”READ OR WRITE. 
4 1 z BNEQ 208 3 BRANCH FOR WRI 118 
p 5 : COMPILE STATISTICS FOR READ 
- a $ ‘ INCL G*PMSSAL =PeEaren Cad) 3; INCREMENT yet tied RANGE. 
D 1228 INCL G*PMS$GL~ TREADS ; INCREMENT READ C€ 
630 1229 ADDL2 R1 G>PMSSGL  READCNT ; INCREMENT TOTAL COUNT FOR CHARACTERS 
D 1230 BRB 40$ 
5 1532 
5 1538 
D 1234 
ge 
1S 
5 1536 
D 1240 


= 


- Terminal driver eter 
TTYSREADONE - 


50 


dD 6 
Stop If [Zo routine g- -00 
T10 TTDRVR.BUGSRCITTYSTRSTP. MAR, 7% 


‘ ~SBTTL TTYSREADONE = READ OPERATION DONE 
TTYSREADONE = RE“D 1/0 OPERATION DONE 
FUNCTIONAL DESCRIPTION: 

THIS ROUTINE IS ENTERED TO Sn He tte & 


THE ACTION IS TO RESET THE STATE OF 


ATION 
THE THE CHANGE AND TO 
FORK ON THE IRP TO COMPLETE THE PROCESSING. 


= ADDRESS OF THE UNIT STATE VECTOR 
= UCB ADDRESS 


UCBSW_BOFF = STATUS WORD 
UCBSW-BCNT = COUNT OF TRANSFER 


IRPSL_MEDIA(CURRENT PACKET) = TERMINATOR AND TERMINATOR SIZE 


PRAGA AA AAA AAAS 
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ge Se Ge Ge Ge Be Ge Se Be Se Ge Se Se Ge Ge Se Ge Ge Se Se Se Se Su Se Se 
a 


“oe 1 


#TT$V_READSYNC,UCBSL -DEVDEPEND (RS) 
#UCBSM_TT_TIMO,UCBSW_ pevéTs ins) 
SET UP ERRORS ON ESCAPE SEQUENCES 


; Tits BR IF NOT READSYNC 
CLEAR TIMEOUT ENABLED 


SNINOO 


eo sete she sett sates Oa sitar Ser Boel he 


Oooo 
Stttatatates 


rss 5% 


IF NOT ESCAPE THEN BR 
); ASSUME PARTIAL ESCAPE SEQUENCE 


; GET THE ADDRESS ot ene READ PACKET 


BART ESCAPE, UCcBSW ofr (Rs), 
UCBSL -SVAPT (R5), R4 
nOV7Bu TRPSL ak 2 tk 
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4 C,20$ CORRE 
_BADESCAPE™ UCBSW “sori ret STATUS FOR IMPROPER ESCAPE SEQ 
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#*C<TTSM_PASSALL ! TTSM_NOECHO> ,UCBSL_DEVDEPEND(R5) ,R4; 
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DONE SEP=19 TTDRVR.BUGSRCITTYSTRSTP.MAR 
02 sad i3 FO 73 1297 INSV R4 ,@TTYSV_ST_PASALL ,#2,4(R2) 3 RESET PASSALL AND NOECHO 
56 ‘ee EE 1298 EXTV #TTSV_ESCAPE,#1,UCBSL_DEVDEPEND(RS),R4 ; GET CURRENT SETTING 
01 sa 33 FO 1299 INSV RG ,#@TTYSV_ST_ESCAPE ,#1,4(R2) ; UPDATE IN STATE 
04 48 AS 5 E1 


BBC #TT2$V_PASTHRU,UCBSL_DEVDEPND2(R5),98$ ; IN PASS THRU MODE 
SET_STATE PASACL 


A 
D 
1 
3 130 
: ! § 98$: 
C 1304 CLR_STATE - i; Clear state bits relevant to 
C 1305 <READ OGL EOL,=- 3; a read (this does not include 
: 4 6 PROMPT, CTRLR,NOFLTR,- =: the write bits). 
(9 ESC,ESC_0,BADESC,PRE, TERMNORM, - 
ei9 : REFRSH, EDI TREAD, SKIPCRLF ,RDVERIFY,ECHAES,- 
f 130 MULTI RECALL OVERSTRIKE EDITING QUOT INC .BACKSPACE> 
53 58 AS 0 1310 MOVL  UCBSL_IRP(RSSR ; ADDRESS CURRENT PACKET 
54 78 ASCO D 1311 MOVL  UCBSL“SVAPTE(R5S) ,R4 : GET THE ADDRESS OF THE READ PACKET 
O13 as 90 6a 1312 MOVE = TTYSWIRB_CPZORG(A4) ,.UCBSB_TT_OLDCPZORG(R5); SAVE BECAUSE 
6A7 1313 ; WE MAY CONTINUE THIS READ 
3¢ a3 oc a3 DO O6A7 1314 MOVL  IRPSL_PID(R3) RPSL TT_TERM(R3): SAVE DATA FOR FORK BLOCK 
AC A AS 90 O6AC 1315 MOVE =I RPS =RMOD (R35. 1RP Q_TT_PRMPT(RS): 
OB A 08 a5 90 - 1 MOVB UCBSB“FIPL(R5). IRP$B-RMOD(R3); SET FORK IPL 
39 A CaS BO 6 131 MOVW  UCBSW7BOFF (RS) IRPS$W-BOFF(R3): SAVE STATUS 
203 3C Ad BO 688 1318 MOVW  TTYSWIRB_TXTOFF(R4) ,.TRPSW_BCNT(R3); SAVE TRANSFER SIZE 
:M1R0001 sree | B6 6¢ ' i} INCH GLEN ie ; TELL THE SYSTEM THAT THERE IS A FORK 
55 ; 00 rat 1320 MOVL : : SET UP FORK BLOCK ADDRESS 
53 10 A D 06¢B 1321 MOVG  IRPSL_AST(R3),R3 : GET PARAMS FOR FORK 
FE75 CF «OF «=(O6CE OC é PUSHAB W*TTYSGETNXTWRITE : FORCE RETURN TO RESTORE UCB ADDRESS 
3¢ AS «6D O06D3 1 PUSHL RPSL TT_TERM(RS) : USE THE PID OF THE ISSUING PROCESS 
00000000'EF 16 606 4 ; TTYSSYNCA : CREATE FORK PROCESS 
ép¢ : : 1/0 DONE FORK PROCESS 
53 55 00 ép¢ 8 g MOVL RS, RB ; RESTORE PACKET AND UCB ADDRESSES 
DF ; IF DF CAS_MEASURE_IOT 
épr ; SACCUMULATE STATISTICS ON NUMBER OF CHARACTERS AND 1/0S TO TERMINALS. 
DF 4 : BSBW ss TTSTATS ; CALL STATISTICS ROUTINE. 
DF $ -ENDC 
55 10 a3 D DF 1 é MOVL  IRPSL_UCB(R3),R5 ; GET LUCB ADDRESS FROM IRP 
55 aocsS + 1 MOVL  UCBSL“TL_PHYUCB(RS).RS : SWITCH TO PHYSICAL USB CONTEXT 
;M1RO001 Bgood74s EF 5 £ DECW LEN : NO MORE FORK WAITING 
; A 0 O6EE 134 ROVI IRPSW_BOFF (R3) RO ; Ger STATUS AND TRANSFER SIZE 
4 SAA Fo 134 MOVZ7BW IRPSL-MEDIA+ (RS) .R4 : GET THE BYTE COUNT OF THE TERMINATOR 
203 54 A 6 1 5 ADDW 4, 1RPSW_BCNT(RS) : CALC TOTAL TRANSFER SIZE 
4 2c a3 D0 FA 1 MOVL  IRPSL_SVAPTE(R3) .R4 : GET ADDRESS OF THE BUFFER BLOCK 
31 30 a3’ OF FE 1344 BBC #10$V"EXTEND, IRPSu FUNG (RS) . 7$ 
9 AS FF 8F ; 1345 MOVE  #*XOFF, IRPSL MEDIATI(R$); INEORCE RESERVED FIELD 
17 40 a3 OA 5 708 1 46 BBS atTy$v ‘ST ROVERIFY IRP$Q_TT_STATE(RS),278; DON'T DO IT FOR READ VERI 
51 30 a6 3C 0700 134 MOVZWL TTYSW_RB_CINOFF(R4S.R1 fF get the offset to this character 
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op 1/0 routine 


st -JAN-1 AX/VAS Macro 4 
TTYSREADONE = READ OPERATION DONE g-2 SEP- =}38? Az: 75 3 TTDRVR. see cec Att YS sRSTP. manet oe 3) 
4 pot R1,TTYSL_RB LINCRG) : ADD INT OFFSET 10. Ger AN ADDRESS 
4 MOVZWL TIYSW_RB-TXTOFF(R4),R1 =: GET HE tEy NOTH 0 READ 
ADDL  ‘- TTYSLRB-TXT(R4) RI ; te GE HE OA Done ss $3 Or | HE LAST CHARACTER 
SUBL =‘ TTYSLTR =LINCRG) RI + SUBTRACT f THE 
VB RI, IRPSLIMEDIA*3S(R3) ==: LAST CHARA t y AND tH 3° 18 THE 
; OFF SE FROM THE END OF THE READ 
4 ; TO THE LAST PO ITION. 
5 27$:  MOVL IRPSL_MEDIACRS) R1 : SET TERMINATOR DATA 
6 MOVL inp L-TT_TERM(RS) ,IRPSL_PID(R3); RETURN IRP DATA 
MOVE RP$W-TT-PRMPT (R35, IRP RMOD(RS); 
MOVW  TTY$W"RB $1 E(R4),[RPSW BOFF(R3); ‘5 
BBS #TT2$0_EDI TING, UCBSL -DEVDEPND og ns) 408 0$; IF OED TING THEN 
; SAVE THE BUFFER, 
READSDONE : 
é #TT2$V_FALLBACK,UCBSL_ DEvOEPIOR RS) 2008; DO WE HAVE TO CHECK 
; END_FALL: FOR INPUT FALLBACK 
5 TTYSDONE: 
: MOVL _—_—IRPS$L_UCB(R3),RS ; RESTORE LOGICAL UCB ADDRESS 
REQCOM + COMPLETE REQUEST 
¢ QLEN:: .WORD 0 ; LOCATION TO KEEP COUNT OF 1/0 COMPLETION 
3 : FORKS CURRENTLY ON THE FORK QUEUE. 
é8 ; 
$3 + SAVE THE COMMAND IF WE ARE IN EDITING, THE READ WAS SUCESSFUL AND 
29 : 17 WAS NOT A NOECHO READ 
es dos cup tas #SS$_TIMEOUT ALLOW TIMEOUT ERRORS TO BE SAVED 
7% BLBC ADSDONE READ NOT SUCCESSFUL THEN DON'T SAVE 
t3 428 pitt BTFSN NOECHO!TTSM_ PASSALL, UEBSL DEVDEFEND(R };DON'T COPY ON 
8 BITL #TTY$m : NOECHO! TTYSM_ st _PASALL! TTYSM_ st NOFLTR,=- 
28 IRP$Q_TT STATE+4(R3) ~ ; "WERE We PASS"ALC, NOECHO 
? BNEQ — READSDON ; OR NO FILTER THEN DON'T SAVE THIS BUFFER 
0 PUSHR #*M<R on R2,R3,R4,R5> : SAVE, THE REGISTERS OVER THE MOVE 
1 MOVZWL TTYSW_RB_TXTOFF(R4S,RO : GET THE LENGTH 
: BEQL 35% IF THE LENGTH 1S ZERO THEN DON'T SAVE 
4 CMPL  #TTYSK_TA_RCLLEN,RO + DOES ALL THE DATA FIT? 
385 BGEQ 308 ; YES THEN CONTINUE ON 
6 MOVL  &#TTYSK_TA_RCLLEN,RO : ELSE USE THE WHOLE BFFER 
7 30$:  MOVL 4 BSL TT_TYPAHD(RS).R1 ; GET THE ADDRESS OF THE TYPEAHEAD BUFFER 
8 MOV »TTIVSW°TA_RCLSIZ(R1) : KEEP THE SIZE CORRECTLY 
MOVC3 ROcaTTYSC. RB_ Arar (Ra) .Trvgay TA_RCL(R1); MOVE THE DATA IN 
90 358: POPR #*R<RO,R1,R2.R3,R4,R5> ; RESTORE THE REGISTERS AND 
1$: BRB READSDONE 
; ; INPUT FALLBACK TABLE IMPLIMENTATION 
3 5008: 
9 PUSHR #*M<RO,R1,R2,R3,R4,R5> ; SAVE THE REGISTERS OVER THE MOVE 
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v04-001 TTYSREADONE = READ OPE RATION DONE meet Br:95 338 YT TORVR. BUGSRC TTYSTRSTP.MAR: 1 (33) vc 
00000000 ' FF DO 07 2 1398 MOVL @TTYSA_INPFALL,R1 3; ANY INPUT FALLBACK 
F 3 1399 pra, 210 
50 3C A4 § 79D 14 9 MOVZWL i} W_RB_TXTOFF(R4) RO 3 get THE LENGTH 
7A 14 aeut £40 if THE LENGTH IS ZERO THEN DON'T SAVE 
00 Bs E tA 1402 MOVTC RO, @TTYSL_RB_TXT(R4),#0, in ),- 
00 B4 7A9 1403 RO an at Roh T(R4) : MOVE THE DATA THRU THE FALLBACK TABLE 
eh 7AC 1404 2108: POPR #n< TR oR4,R5> ; RESTORE THE REGISTERS AND 
FF9O 1 PAS 1405 2208: BRW E FALL 
7B1 1406 .Disable lsd 
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- Terminal driver start/stop 1/0 routine g-sane 19 § 17:27: ae 
-SEP-1984 04: 


eon ewrmoeerroreceeanra 


! Psect synopsis ! 


goearwaoesavreocnrecos $ 


PSECT name Allocation PSECT No. Attributes 

- ABS . 0000 mf ( ae -) NOPIC USR CON ABS LCL 

SABSS 4944 0 NOPIC USR CON ABS- LCL NOSHR 

$$$115_DRIVER 00781 1969. NOPIC USR CON REL LCL NOSHR 
ew one ene ee acne enema swan} 
: Performance indicators : 

Phase Page faults CPU Time Elapsed Time 

Initialization 96 0:00: -§} +00 :0) «62 

a processing 101 0:00:00.54 :00: §-5¢ 

s 1 64 :00:32.16 :00:4 § 

Syabol table sort . 700: 2:0) : 103 -3e - 

Sebel Gubie botent 1 09: 08:80 00:00:56 

Psect synopsis output 0:00:00. :00:00. 

Cross-reference output 0:00:00.00 BBY: 00 

Assembler run totals 1144 0:00:43.94 00:01:12.4 


13S088"byce set Limit was 2400 pages. 
\ bytes (299 pages) of virtual memory were used to buffer the intermediate code. 
inere were 130 pages of symbol table space on ecetee to hold 2385 non-local and 89 local symbols. 
422 source lines were read in Pass produc ing,! object records in Pass 2. 
36 pages of virtual memory were used to define 53 macros. 
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! Macro Library statistics ! 


tome en sew on enreen enero nee Sos 


Macro Library name 


Macros defined 


Ss3zSpuals: Pea stip LIB.MLB;1 $6 
SYSLIBJSTAR ify -ML8;3 
7h25580UA (all Libraries) 32 


2769 GETS were required to define 32 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:TTYSTRSTP/OBJ=OBJS: TTYSTRSTP MSRC$:TTYSTRSTP/UPDATE=(BUGS$: TTYSTRSTP) *EXECMLS/LIB 
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